SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 


**F 1LE**1D**ADPSUB780 


AAAAAA DDDDDDDD PPPPPPPP SSSSSSSS UU UU BBBBBBBB 77777777 888888 000000 
AAAAAA DDDDDDDD PPPPPPPP SSSSSSSS_ UU UU BBBBBBBB 77777777 888888 000000 
AA AA DD DD PP PP $5 UU UU BB BB 77 +88 88 00 00 
AR AA 0D DD PP PP $5 UU UU BB BB 77 «=88 88 00 00 
AA AA DD DD PP PP $5 UU UU BB BB 77 «88 HY 00 0000 
AA AA DD DD PP PP SS UU UU BB BB 77 «288 8 00 0000 
AA AA DD DD PPPPPPPP SSSSSS UU UU BBBBBBBB 77 ttt 00 00 90 
AA AA DD DD PPPPPPPP SSSSSS UU UU B8BBBBBBB 77 88888 00 00 00 
AAAAAAAAAA DD DD PP SS UU UU BB BB 77 88 88 0000 0 
AAAAAAAAAA DD DD PP SS UU UU BB BB 77 88 88 0000 00 
oa AA DD DD PP S$ UU UU BB BB 77 88 88 00 00 cove 
AA AA DD DD PP SS UU UU BB BB 77 88 88 00 00 cece 
AA DDDDDDDD PP SSSSSSSS UUUUUUUUUU §=BBBBBBBB 77 888888 000000 eeee 
AA AA DDDDDDDD PP SSSSSSSS UUUUUUUUUU = BBBBBBBB 77 888888 000000 eeee 


LLLLLLLLLL I] 
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ADPSUB780 - ADAPTER SUBROUTINES FOR VAX 11/580 16-SEP-1984 00:41:0 AX/VMS Macro V04-00 Pa 1 
v04-000 873k P=1 1984 0:08: 23 USYSLOA. SR SRC ADP SUB .MAR; 1 = (1). 


“HOS HOW CONDIT 
TITLE ADPSUB B7B0 s = ADAPTER SUBROUTINES FOR VAX 11/780 


IDENT 'V04-000" 


—PPARARARARAAAASAALAAALALELASELLLESES ESSE ASAE SESSA SASSER ESA LAER REESE SEER R 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED meee A LICENSE tee MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH E OF SUCH LICENSE AND WITH THE 
0 INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
0 COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
see pokat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eae eee eRe RRR RAKES 


. 
* 
* 
* 
* 
. 
° 
* 
* 
. 

TRANSFERRED. re 
« 
* 
« 
. 
* 
. 
* 
* 
* 
* 


IARRRASAAARASALASALALAASASASLESASSESSASELALAR SEAS S RRS R SERRE ARERR ARAL ARSE SSD OS | 


Facility: System bootstrapping and initialization 


Abstract: This module contains initialization routines that are loaded 
; during system initialization (rather than Linked into the system). 


Environment: Mode = KERNEL, Executing on INTERRUPT stack, IPL=31 


fw ae] we ee ee ww ele ww ola lawl ole lololololololeloleleoleloleolelelololeoleoleololololololol alo!) 


Author: Kerbey T. Altmann Creation date: 30-Oct-1982 
Modification history: 
v03-007 TCM0002 Trudy C. Matthews 04-Jun-1984 
Include more 780-sperific code tor the 11/7 o version of 


this routine. 


v03-006 KPLO001 Peter Lieberwirth 12-Apr-1984 
Init ADPSL_SHB properly again; v03-004 ASSUM d this field 
was at a certain constant offset, and a change to the ADP 
moved it. Note - this is a 780 change only. 


COOooooo 


Soooooooooooo 
=—=DODNAU EWR OO OO NAU EWN SO OOO NAU EWN CO OO NAN EWWIN  O OO NA UE WIN S| NIN OUT 


Sete Ge Ge Se Se Ge Ge Se Ge Ge Se Ge Se Ge Se Ge Ge Ge Fe Ge Ge Ge Ge Fe Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


SNOB. DEDEDE DDE DE DE TTT BB BB BB NAINA NINIAIIIRPPNPOPONPONI PUN 


CGOOOCCOOCOOCOCooo 


v03-005 KDM0081 Kathleen D. heres 13-Sep-1983 
Create version for Micro-VAX 
p V03-004 ROW0196 Ralph 0. Weber 27-JUL-1983 
Correct INISMPMADP so the ADPSL SHB is saree tin initialized 


16 
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SYSLOA. SAP SUB .MAR; 1 
to zero. 
v03-003 wenoye} Maryann Hin ogen 06-Dec-1982 
nitialization tor DW75 
v03-002 ROW0142 Ralph 0. Weber 23-NOV-1982 


Correct JMP in eyitiport memory interrupt dispatching code 
on ghey ge to a JSB. MASINT expects to receive 
contro a 


v03-001 TCMO001 


ver ¢ Matthews 88-Nov-1982 
Initialize tied” ADP L “AVEC ECTOR i 


n INISMPMADP. 


MFWN- OOONOUS wry 
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¥O4=000 rSEP=1984 04:00:48 oe dy 


- - SYSLOA.S SADPSUB. MAR; 1 
00000001 ge C780_LIKE = 1 
94 
9 
] 
09g | 5: : MACRO LIBRARY CALLS 
OOU0 109 SADPDEF 3; Define ADP offsets. 
44 110 $SCRBDEF ; Define CRB offsets. 
0 111 SOCDEF : Define AT codes. 
8088 i SDDBDEF : Define DDB offsets. 
000. = ‘11 SDODTDEF : Define DDT offsets. 
0000 114 SDYNDEF ; Define data structure type codes. 
0000 115 SIDBDEF : Define interrupt dispatcher offsets. 
0000 116 SMBADEF ; Define MASSBUS registers. 
0000 117 SMCHKDEF ; Define machine check masks. 
0000 118 SMPMDEF i; Define multi-port memory. 
0000 119 SNDTDEF : Define nexus device types. 
0000 120 PRDEF :; Define IPR numbers. 
0000 121 SPTEDEF ; Define Page Table Entry bits 
0000 166 PBDEF ; Define Restart Parameter Block fields. 
0000 1s SSSDEF ; Define system service codes. 
0000 124 SUBADEF ; Define UBA register offsets. 
4944 125 SUBIDEF ; Define UNIBUS interconnect 
000 1 g : register offsets. 
0000 =«1 SUCBDEF ; Define unit control block. 
0000 128 SVADEF ; Define virtual address fields. 
44 193 SVECDEF ; Define vec offsets. 
0000 136 SCEBDEF ; Art EVENT BLOCK 
0000 13 SFKBDEF 3; FORK BLOCK 
0000 134 SIPLDEF : INTERRUPY PRIORITY LEVELS 
0000 135 IDEF ; PRIORITY INCR ay bEFIN ITIONS 
4 138 SPRQDEF 3; INTER=PROCESSOR REQUEST 
000 13 SRSNDEF ; RESOURCE NUMBER DEFINITIONS 
0000 138 SSHBDEF ; SHARED MEMORY CONTROL BLOCK 
0000 139 SSHDDEF 3; SHARED MEMORY DATAPAGE 
0000 = 141 
0000 145 
00000000 146 -PSECT SYSLOA,LONG 
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FOR VAX 11/480 16-SEP-1984 00:41:08 YAX/VMS Macro V04-00 P é 
HANDLER =SEP=1984 On:dores LeyStoa.secdappsuacman:1 "29° (3). 


a .SBTTL CISINT = CI INTERRUPT HANDLER 
: CISINT = CI INTERRUPT HANDLER 


c2 
um 


THIS moeULs 1S A DUMMY C132 INTERRUPT HANDLER iw IS USED 
gt THE REA L_CI DRIVER (PADRIVER) IS LOADED. IT ALSO CONTAINS 
A DUMMY C132 CONTROLLER INITIALIZATION ENTRY POINT. 


INPUTS: 
THE STACK ON ENTRY IS AS FOLLOWS: 


0(SP) ADDRESS OF IDB ADDRESS 
4(SP) = 16(SP) SAVED R2 = R5 
St tee} INTERRUPT PC 
4(SP) INTERRUPT PSL 
OUTPUTS: 
NONE 


SIDE EFFECTS: 
INTERRUPTS ARE DISABLED ON THE C132 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge 


: SPAREGDEF -- Define offsets to Cl registers and fields in the registers. 


SDEFINI PAREG 
SDEF PA_CNF .BLKL 1 
ee PA_CNF ,0,<= 


Configuration register 


; Define config register fields: 


at et et et ee ee eh he el onl alow lala leoleoleleleleleoleleleleleloleloleleleleloleolelololola) 


ZADPTYP,8,A>,- ; Adapter type code 
<PrD. b : Powerfail disable 
<TDEAD, ,M>, - ; Transmit dead 
<TFAIL, ,.M>,- ; Transmit fail 
3, ; 5 unused bits 
<tRD. .M>,- ; CRD on port init'd read 
<RDS,,M>, ; RDS on port init'd read 
<CXTER, A> ; SBI error confirm 
<RDTO ; Port init'd read timeout on SBI 
<CSTHO: AS, - : Port init’'d command xmit timeout 
; 1 unused bit 
<bu>’ =>, - ; Adapter power up 
PON, Oy - ; Adaptor power down 


SDEF PA_PMC .BLKL 1 
VIELD PA_PMC,0,<- 


Port maint control/status register 


SOOCSCOCSOSSOSSOOSCOSOSOOSO COSCO SCOSOOSOSCSOOCOOSOSOOSCOSOOSOSOOOOOOCOOCOSOOOOOoOO 
OQOCCCCOCOCSOOSOSOOSOSCOSCOCOSCOCOOCOSO COSCO OOOCOOCOOSCOOSOSOOOCOOOSOOOOOOOOO 


bat'ine register reas: 


DOOOOCOOCOOOOO OO OO W000 09 00 09 09 09 09 09 09 SINISE NAA AAA AAAAO OUI ES 
ANEW 9 OONOA UE WIN 2 O OONOAUE WN 0 OD NOAOWN "OOO NOU EWN OOONOULSWWIR—OWOC 0 


COOOOCOCOOOSOOSOSOOOSOOSOOSOOSSOOOSOOOSOSOOOSOOSOOSOOOOSOSOSOOOOOOOSOOOOOOOOoOO —U 
Nonononononony 2 SS Ss SS SS SS Ss Ss Ss Sh Ss Ss Ss Ss 2 Ss Ss 2 Ss Se 4 3 ess 


COCO CODCOD HL LLL ESE 


2MIN, ,M>,- : Maint in 
3 <MTD,,M>,- : Maint timer aisepte 
0 <MIE,,M>,- ; Maint interrupt enable 


NOUN COICO OOOO OI OI OI OI OI OI OI OI ONIONS 
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ADPSUB780 = ADAPTER SUBROUTINES FOR VAX 117780 16-SEP-1984 00:41:08 VAX/VMS Macro v04-00 P 
v04=000 DRSINT = DR INTERRUPT HANDLER BrSEe lobe be sGorse Penson eae iapbececwan:1 ase (8, 
Hf i : .SBTTL DRSINT = DR INTERRUPT HANDLER 
8 : 33 ; DRSINT = DR INTERRUPT HANDLER 
00 6° Mi THIS MODULE IS A DUMMY DR3c INTERRUPT HANDLER WHICH IS USED 
4 4¢ : UNTIL THE REAL DR DRIVER (XFDRIVER) IS LOADED. IT ALSO CONTAINS 
0 4 43 : A DUMMY DR32 CONTROLLER INITIALIZATION ENTRY POINT. 
024 245 : INPUTS: 
Bose #6 : 
: " $ THE STACK ON ENTRY IS AS FOLLOWS: 
$0 4 rk : O(SP) ADDRESS OF IDB ADDRESS 
0024 250: 4(SP) = 16(SP) SAVED R2 = R5 
0024 251: 0(SP) INTERRUPT PC 
0024 3g : 4(SP) INTERRUPT PSL 
0024 23 3 
0024 254 : OUTPUTS: 
0024 55 ; 
0024 28 r NONE 
Ose a 3 
0024 258 : SIDE EFFECTS: 
0024 259: 
0024 260: INTERRUPTS ARE DISABLED ON THE DR32 
0024 261 :- 
0024 262 
0024 265 
0024 66 ; 
0024 267 : DR32 DCR REGISTER DEFINITIONS 
0024 268 :- 
0024 269 
0024 270 SDEFINI DR 
0000 271 SDEF  DR_DCR BLKL 1 : DR32 CONTROL REGISTER 
0004 Ae: _VIELD DR bse 0:<- 
0004 27 TYP, 8>,- ; ADAPTER TYPE 
0004 27% <IDZERR: M>,- : 1Dg ERR 
0004 275 <1D2 T0S.2>,- : 1D FINeeOUT STATUS 
0004 376 : RESERVED 
0004 27 <ipiéae. M>,- : 1D1 ERROR 
0004 278 <ID1T0S.8>, : ID1 TIMEOUT STATUS 
0004 279 <RDS,,M>,-— : READ DATA SUBSTITUTE 
0004 280 <CRD,,.M>,= : CORRECTED READ DATA 
0004 281 <DCRHLT,.M>,- : DCR HAL 
9004 Be <DCRABT,.M>.- : DCR ABORT INTERRUPT 
004 <PKTINT,,M>.= : PACKET INTERRUPT 
0004 284 <INTENB, «>, - : INTERRUPT ENABLE 
9004 85 + RESERVED 
004 86 Spur’ “UP. .M>, - : ADAPTER POWER UP 
0004 ? <PWR-DN, .M>.= : ADAPTER POWER DOWN 
004 88 <EXTABT, «>, - ; EXTERNA L ABORT 
04 9 : RESERV VED 
done 30 : Sin ber, 6>,- : IMPLEMENTATION DEPENDENT BITS 
4 29 
a $8 ; DCR CONTROL FIELD A CODES (USED WHEN WRITING TO DCR) 
00000100 Boe 95 DCR_K_CLRPWRUP=*X100 
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OR VAX 11/580 16-SEP-19 0:41:0 AX/VMS Macro V04-00 p 
SENT UNIBUS ADAPT ScSEP=]ORG OosGorss Lense GR. eae iapeecacwan:1 ase 8, 


ie -SBTTL UBASINITIAL = CPU-DEPENDENT UNIBUS ADAPTER INITIALIZATION 
; UBASINITIAL = UNIBUS ADAPTER INITIALIZATION 
; THIS BOUT INE IS CALLED vis A JSB INSTRUCTION AT SYSTEM STARTUP AND AFTER 
A POWER RECOVERY RESTART v9 ALLOW INITIALIZATION OF UNIBUS ADAPTERS. 
(POWERFAIL AND INITADP) 
; INPUTS: 


: R2 = ADDRESS OF ADAPTER CONTROL BLOCK (11/780 AND 11/750) 
; 4 = ADDRESS OF UNIBUS ADAPTER CONFIGURATION STATUS REGISTER (11/780) 


ALL INTERRUPTS ARE LOCKED OUT. 
; OUTPUTS: 
THE UNIBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 


=D ODNAU EWN 9 OD NOAU EWN COONAN EWN CO OOONOUES WOON OO 


OOO 09.09 09 09 09 09 G0 SI OS OS OSD DS DS DODO TTT Be Be ES BEE EWI 


UBASINITIAL:: ;UNIBUS ADAPTER INITIALIZATION 
64 00 02 MCOML #0,UBASL_CSR(R4) ICLEAR ALL ADAPTER CONFIGURATION ERRORS 
08 AS «(00S iéO MCOML #0, UBASL~SR(R4) :CLEAR ALL ADAPTER STATUS BITS 
50 0256 C2 = 3¢ MOVZWL ADP$W_UMR_DIS(R2),RO | :PICK UP THE NUMBER OF UMR'S TO DISABLE 
50 6500C(16s78 #UBASV_CRUMRDSB-4.RO,RO :DIVIDE BY 16 THEN SHIFT INTO POSITION 
C9 BISL3 #UBASM~CR7SUEFIE!- ‘ENABLE INTERRUPTS 
UBASM~CR~BRIE!- 
UBASM~CR~CNFIE!- 
UBASM~CR~USEF IE!- 
UBASM”CRTIFSIE, - 
04 A6 50 0000007¢ BF RO,UBASL_CR(R4) 
10$: :NO SPECIAL INIT FOR 11/730 OR uVAX I 
05 RSB i 
: IGNORE UNEXPECTED UNIBUS INTERRUPTS 
.ALIGN LONG 
UBASINTO: : ; PASSIVE RELEASES THROUGH VECTOR 0 
00000000'9F 06 94 INCL  a#10$GL_UBA_INTO ; COUNT THEM 
00 11 95 BRB UBA_UNERINT™ : JOIN COMMON CODE, VECTORS ARE ALLIGNED 
9 .ALIGN LONG 
98 
99 


; NOTE: UBASUNEXINT is the Label in the EXEC that is a JMP @#UBA_UNEXINT. 
: This seeming duplicity is necesary since there is code that must 
refer to the EXEC address from within the SYSLOA image. 


04 ipa. UNEXINT: : ; UNEXPECTED INTERRUPT CODE 


Ooo 
Wr 
Sete ee eee 
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DDD DP_ DD DED DEDEDE De DED PUPP Ut Se BS BB PPP PPP PPP PPP PPL PLETE IT 
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1042000 UBASINITIAL = CPU=DEPENDENT UNIBUS ADAPT g- -SEP- P= 1984 90:38 98 YOYSLOA. See ADPSUB.MAR; 1 . (3) 
4 
4 ; : FOR 780-L IKE PROCESSORS, RESTORE 
4 : t SAVED REGISTERS 
4 POPR #*M<RO,R1,R2,R3,R4,R5> : 
6A 412 + FOR 11/750, NO REGISTERS SAVED 
6A 414 REI + IGNORE INTERRUPT 
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1 
OR VAX 11/580 .* =SEP-1984 90: 241: 08 ann Macr 
PT DISPATCHER SEP=1984 04:06:4 SYSLOA.SRCJ 


«-SBTTL MASSBUS ADAPTER INTERRUPT DISPATCHER 
MBASINT = MASSSUS ADAPTER INTERRUPT DISPATCHER 


ON A MASSBUS ADAPTER. THE STATE OF THE STACK ON ENTRY 


ROU 
ER 
1 
19 ; 
4; 
5; O(SP) = ADDRESS OF IDB ADDRESS. 
$ ; 4(SP) = SAVED R2. 
; (SP) = SAVED R3. 
8 ; 12(SP) = ‘ 
9; 1G¢SP) = SAVED RS. 
0; : (SP) = INTERRUPT PC. 
1: 4(SP) = INTERRUPT PSL. 
; INTERRUPT DISPATCHING OCCURS AS FOLLOWS: 
5; IF THE INTERRUPTING ADAPTER IS CURRENTLY OWNED AND THE OWNER UNIT 
6; 1S EXPECTING AN INTERRUPT, THEN THAT UNIT Is DISPATCHED FIRST. ALL 
37 ; OTHER UNITS ARE DISPATCHED BY READING THE ATTENTION SUMMARY REG- 
38 ; ISTER AND SCANNING FOR UNITS THAT HAVE ATTENTION | SET. AS EACH UNIT 
9: 1S FOUND, ITS ATTENTION SUMMARY BIT IS CLEARED THEN 
40 ; MADE TO DETERMINE IF AN INTERRUPT 1S EXPECTED on THE 
41; THEN THE DRIVER IS CALLED AT ITS INTERRUPT RETURN ADDRES 
4g : THE DRIVER IS CALLED AT ITS UNSOLICITED INTERR RES 
; CALL TO THE DRIVER RETURNS, THE ATTENTION S$ Y REGIST 
44 : READ AND AN ATTEMPT IS MADE TO FIND ANOTHER UNIT TO DISP 
443 ; NO UNITS REQUESTING ATTENTION REMAIN, THE INTERRUPT IS D 
447 ° 
448 .ALIGN LONG 
450 MBASINT:: :MASSBUS ADAPTER INTERRUPT DISPATCHER 
451 MOVL a (SP),R3 [GET ADDRESS OF 
43g MOVL  IDB$L_CSR(R3),R4 [GET ADDRESS OF CONFIGURATION STATUS REGISTE 
i 
496 BITL  #MBASM_CSR_PD,- 
45 MBASL~CSRTR4S :CHECK FOR MBA POWER DOWN 
458 BNEQ 45$ [BRANCH IF POWERFAIL 
467 
468 MOVL 1DBSL_ OWNER(R3) RS :GET OWNER UNIT UCB ADDRESS 
469 BEQL F EQL NO OwN 
470 MOVZBL ucse SLAVE(RS) ,R2 ! OWNER SLAVE CONTROLLER NUMBER 
471 BBS BS7_INT, UCBSW_ Sccats: pareneel EXPECTED 
47g 10$ MOVL a cp shetnieve SEER RESS 
47 MOVL 1oBsL cs *CSR(R3) -R4 CRETRIEVE MBA CON Feu pee TON REGISTER ADDRESS 
474 MCOML SR(RE) CLEARS ALL MBA STATUS BIT S 
475 MOVL maist A SURG) Ra SREAD ATTENTION SUMMARY REGISTER 
476 FFS [FIND FIRST UNIT REQUESTING ATTENTION 
47 BNEQ ZO [IF NEQ UNIT FOUND 
478 ADDL SREMOVE IDB ADDRESS FROM STACK 
47 MOVG ae, sp +R? SRESTORE REGISTERS 
480 MOV = (SP)+-R ; 
4 } REI : 


v04-00 
ADP SUB.MAR; 1 


THIS ROUTINE IS ENTERED VIA_A_JSB INSTRUCTION WHEN AN = OCCURS 
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ADPSUB780 = ADAPTER SUBROUTINES FOR VAX Ww 0 16-SEP-1984 00:41:08 VAX/VMS Macro V04-00 Page 11 
7042000 MASSBUS ADAPTER INTERRUPT Ni patcuee -SEP-1984 4 $2: :06: 08 YeYSUDA. SRCJADPSUB.MAR; 1 watt: 
55 (18 A342 D AD 483 208:  MOVL 1DBSt UCBLST(R3)CR2],R5 ;GET ADDRESS OF UCB OR INTERRUPT DISPATCHER 
ZS: B 4 4 BLBS 5,408 i1F LBS THON ROLLER DISPATCHER FOR MULTI- 
0410 4 01 5 7 B54 : ASHL R2.#1 ,MBASL_AS(R4) SCLEAR ATTENT TION SURMARY BIT 
D BB C4 TSTL) OR TSEE IF UCB DEFIN 
gp 1 BD 4 : BEQL 108 iF EQL NONE DEF NHIED 
09 64 AS. 01 6 OB 4 BBCC  $#UCBSV_INT ycasy. STS(R5),30$ ;IF CLR, INTERRUPT NOT EXPECTED 
53 10 A5 7D 0004 490 MOVG ucest FR3(R5) ,R3~ SRESTORE DRIVER CONTEXT 
0c BS 16 00C8 491 JSB auce C_FPC(RSS 7CALL DRIVER AT INTERRUPT RETURN ADDRESS 
BF O11 ce 49¢ BRB 10$ ; 
53 0088 cS D0 o¢ 494 30$: MOVL UCBst DDT(RS) ,R3 :GET ADDRESS OF DDT 
0483 16 O00D2 495 JSB @DDT$C_UNSOLINT(R3) SCALL UNSOLICITED INTERRUPT ROUTINE 
B51 990 496 BRB 10$ ; 
ze bc 9007 498 40$:  MOVPSL =(SP) ;READ CURRENT PSL 
7 16 0D9 499 JSB -(R5) ;CALL SLAVE CONTROLLER INTERRUPT DISPATCHER 
AF 11 00DB 200 BRB 10$ ; 
00DD 501 
00DD 503 
00DD 4504: 
OODD 505 ; IN CASE OF ADAPTER POWER DOWN BIT ASSERTED, RETRIEVE ADP ADDRESS AND JUMP 
00DD 506 : TO ADASTER ERROR ROUTINE IN SYSLOA780. 
0ODD 507; 
00DD 508 
54 14 AB p0 00DD 509 45$:  MOVL  IDBS$L_ADP(R3),R4 :GET ADP ADDRESS 
FFIC’ 31 ope} ai? BRW EXESRA780_INT 7JUMP TO ERROR ROUTINE 
00E4 533 
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fe .SBTTL MASSBUS ADAPTER INITIALIZATION 
: MBASINITIAL = MASSBUS ADAPTER INITIALIZATION 


; THIS ROUTINE IS CALLED VIA A JSB INSTRUCTION AT SYSTEM STARTUP AND AFTER 
; A POWER RECOVERY RESTART TO ALLOW INITIALIZATION OF MASSBUS ADAPTERS. 


INPUTS: 


R5 = 


OUTPUTS: 


MBASINITIAL:: 


MOVL 
MOVL 


RSB 


R4 = CSR ADDRESS OF MASSBUS ADAPTER. 


ADDRESS OF ADAPTER IDB. 


*MBASH_ CR_INIT,- 
MBASL—CRTR4) 
#MBASM~CR_IE,- 
MBASL~CRTR4S 


ALL INTERRUPTS ARE LOCKED 9UT. 


THE MASSBUS ADAPTER IS INITIALIZED AND INTERRUPTS ARE ENABLED. 


sMASSBUS ADAPTER INITIALIZATION 


INITIALIZE MASSBUS ADAPTER 
ENABLE INTERRUPTS 


ADPSUB780 = ADAPTER SUBROUTINES FOR VAX 11/580" 16-SEP-1984 00:41:08 VAX/VMS Macro V04-00 P 13 
¥042000 INISMPMADP = BUILD ADP AND INITIALIZE MU §- Hits 4 ee YOYSLOA. SREJADPSUB_MAR; 1 a (6) 
OED 67 Le .SBTTL INISMPMADP = BUILD ADP AND INITIALIZE MULTI-PORT MEMORY 
ED 8 ; INISMPRADP 1s CALLED AFTER MAPPING THE REGISTERS FOR A MULTI-PORT 
ED 0 : MEMORY ADAPTER. AN ADAPTER CONTROL BLOCK IS ALLOCATED AND FILLED. 
ED 4 ; THE HARDWARE ADAPTER IS THEN IN ITIALT ZED BY CALLING MPMSINITIAL. 
OED 1g NOTE: THIS ROUTINE HAS BEEN LOCATED HERE IN SYSLOAXXX.EXE INSTEAD OF 
O&ED 574: INILOA.EXE BECAUSE IT CAN BE CALLED W MIL if THE SYSTEM IS RUNNING 
GED i : LONG AFTER INILOA.EXE HAS BEEN DEL PTED 
OED 58 ; INPUT: 
BED oe : R4 - nexus identification number of this nexus 
OED 0 OUTPUTS: 
ED 13 ALL REGISTERS PRESERVED 
SOED 6 ' 
00000010 OOED 284 NUMMPMVEC = 16 ; NUMBER OF INTER=PORT INTERRUPT VECTORS 
OED 386 INISMPMADP: : : INITIALIZE MPM DATA STRUCTURES 
O7FF 8F BB OED 39¢ PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,R9,R10> ; SAVE REGISTERS 
te 23¢ ; Allocate and initialize Adapter Control Block (ADP). 
51 0084 8F 3C OOF1 596° MOVZWL WADPSC MPMADPLENS- ; GET SIZE OF ADP PLUS VECTOR 
J0F6 597 MPAVEC * R1 ; DISPATCH 
00000000" 9F 00F6 598 JSB saeK ESALONONPAGED + ALLOCATE ADP FOR ADAPTER 
53 52 vO OOFC 599 MOVL R2,R : COPY AD 
58 00000000'9F 00 OFF 600 MOVE asHMGSGL SBICONF ,R8 : GET SYSTEM ADDRESS OF CONFIG ARRAY 
83 6844 D0 0106 60¢ MOVL (RB) CR4],(R3)+ ; SET ADDRESS OF CONFIG REGISTER 
010A 60 ASSUME ADPS$L_LINK EQ 4 
83 D4 O10A 604 CLRL —s (R3) + ; CLEAR LINK FIELD 
010c 605 ASSUME ADP$W_SIZE EQ 8 
83 51 BO 010C 606 MOVW = R11, (R3) + : SET SIZE OF STRUCTURE 
83 01 9B O10F 607 MOVZBW #DYNSC_ADP, (R3)+ : SET TYPE OF STRUCTURE 
011 698 ASSUME ADP SU TR EQ 12 
83 54 B0 011 609 MOVW oR )+ ; SET NEXUS NUMBER OF ADAPTER 
011 610 ASSUME eat ADPTYPE EQ 14 
83 03 BO 0115 611 MOVe #ATS_MPM,(R3)+ : SET THE ADAPTER TYPE 
O18 612 ASSUME ADP$C_VECTOR EQ 16 
51 40 A2 DE 0118 61 MOVAL ADP$L~ INTD+8(R2), R1 : GET ADDRESS OF DISPATCH TABLE 
83 51 DO O11C 614 MOVL R1,(R : SET ADDRESS OF DISPATCH TABLE 
11F 615 ASSUME ADPSL *PROGFL EQ 20 
117 616 ASSUME ADPSL TPR PRQQBL EQ 24 
83 53 vO O11F 61 MOVL  R3,(R3)¢ : INIT PRQ WAIT QUEUE FORWARD PTR. 
83 14 A2 DE 0122 618 MOVAL ADPSL ~PRaers (Ra) ,(R3)+ + INIT PRQ WAIT QUEUE BACKWARD PTR. 
30 Ao 7 196 619 CLRQ. ADPS$L~SHB(R2) ; tLEAR’ SHB FIELD 
' 2 ° 1 : Initialize adapter interrupt vectors in System Control Block. 
50 00000000'°9F 00 0129 6 : : MOVL aFEXESGL _ SCB,RO : GET ADDRESS OF SCB 
54 8654 Bs 00. «CEFF 1 2 624 EXTZV @# R4> ; Get low 4 bits of nexus number. 
50 0100 C044 DE 1 625 MOVAL ar100tR OSCR : COMPUTE ADDR OF 1ST INT VECTOR 
10 A250 =—00s«O01 6 5 MOVL RO, oor VECTOR (R2) + SAVE ADDRESS OF ADAPTER'S SCB VECTORS 
13F 66 + #e® VECTORS WITHOUT JUMPER **e 
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16-SEP-1984 00:41: AX/VMS Macro V04-00 
MPMADP = BUILD ADP AND INITIALIZE MU g- SEF) 38 Bo bares YOYSLOA. SREIA ADPSUB.MAR; 1 
8 MOVAB ADPSL_INTD+1(R2),(RO) ; CONNECT IPL 30 TO DISPATCHER 
MOVAB W“EXESINTS8+1,64(RO) ; CONNECT IPL 21 TO ERROR LOGGER 
p see VECTORS WITH JUMPER * 
6 MOVAB ADPSL INTD*1 (R2) 128(RO)'; CONNECT IPL 22 TO DISPATCHER 
6 : MOVAB W*EXESINTS8+1,192(RO)  ; CONNECT IPL 23 TO ERROR LOGGER 
634 ; : 
oy? ; Initialize inter-port dispatcher. 
é 5 ; MOVL B°MPMINTD, ADPSL INTD(R2) ; INIT INTER=PORT DISPATCHER 
6 8 MOVAB W*MASINT,ADPSL_INTD+4( 4(R2); AND ADDRE 
639 ce MOVL SNURMPAVEC RD ; GET NUMBER OF VECTORS IN TABLE 
641 or a etie : SET VECTOR TO “NOT IN USE" 
646 SOBGTR RO,10 ; DECR EMENT COUNT AND LOOP 
64 OVL  ADPSL_CSR(R2),R4 : GET ADAPTER CSR ADDRESS 
644 MOVL  MPMSL~CSR(R4).RO > GET CSR VALUE 
645 EXTZV #MPM$0_CSR_PORT,- : GET PORT VNUMBER 
646 #MPMSS"CSR7PORT.RO,RO : 
647 MOVB RO, ADPSB_PORT(R2) : SAVE PORT NUMBER 
648 BSBW  ADPLINK : LINK ADP TO END OF CHAIN 
e29 : Initialize adapter hardware. 
65¢ : BSBB s- MAS INITIAL : INITIALIZE THE ADAPTER 
65 POPR #*M<RO,R1,R2.R3,R4,R5,R6,R7,R8,RO,R1I0> ; RESTORE REGS 
654 RSB 
656 MPMINTD: : MULTI-PORT INTERRUPT DISPATCHER 
657 PUSHR #*M<RO,R1,R2,R3,R4,R5> : 
658 JSB a#0 3 
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ADPSUB760 - ADAPTER SUBROUTINES FOR VAX 11/580 1 =SEB-1984 00:41 :0 VAX/VMS Macro V04-00 Page 15 
v04= MASINITIAL = INITIALIZE MULTI-PORT MEMOR 5-SEP-1984 04:06:45 CSYSLOA.SRCJADPSUB.MAR; 1 (6) 
A ee) Es .SBTTL MASINITIAL = INITIALIZE MULTI-PORT MEMORY ADAPTER 
1BA 663: 
A 664 ; MPMSINITIAL = INITIALIZE MULTI-PORT MEMORY ADAPTER 
18A é8¢ : THIS ROUTINE IS CALLED AT SYSTEM INTIALIZATION AND AFTER A POWER 
18A 667 ; RECOVERY RESTART TO INITIALIZE THE PORT ADAPTER BY CLEARING ANY 
A 668 ; ERRORS AND ENABLING ALL INTERRUPTS. 
A $76 : INPUTS: 
A 67¢ : R4 = ADDR OF ADAPTER CSR. 
A 674 : IPL = 31 
A 676 : OUPUTS: 
18A 678: ANY ERRORS IN PORT ARE CLEARED And ALL INTE%RUPTS ARE ENABLED. 
18A 679 
018A 680° 
O13, 681 MASINITIAL:: : INTIALIZE PORT 
04 AG D4 O18a re CLRL MPMSL_CR(R4) : CLEAR INTERRUPT ENABLE AND DIAG BITS 
D4 018D 688 CLRL  MPMSL~SR(R4) : CLEAR INVALIDATE DISABLE AND DIAG BITS 
50 OC AS DO 0190 689 MOVL MPMSL~INV(R4),RO + GET INVALIDATION REGISTER CONTENTS 
50 S8O0FFFFF BF CA 0194 690 BICL  #*C<MPMSM_INV_STADR>,RO ; CLEAR ALL BITS BUT STARTING ADDRESS 
198 691 ASSUME MPMS$V INV ID EQ 0 : CACHED ID'S START AT BIT 0 
0c a6) «650— Osi 0198 69¢ BISL3 #180,RO,MPMSL_INV(R4) : SET CPU (NEXUS 0) AS CACHED 
18 AG D4 1A 69 Ls MPMSL_CSR1(R4T : CLEAR DIAGNOSTIC BITS 
10 AG) «0DS «OO1A3) 694 CLRL MPMSL~MR(R4) : CLEAR DIAGNOSTIC BITS 
00400000 of dO Bie $22 MOVL ing? ye : CLEAR ANY POWER-UP STATUS 
FF000000 af DO O1AD 697 MOVL sMPHSACR RRS, ~ CLEAR ANY PORT ERRORS 
DO bibs 699 MOVL #MPMSA_SR SS!- t CLEAR ANY STATUS ERRORS AND 
3186 00 MPMSM_SR_TDL!- ; ENABLF ERROR INTERRUPTS 
186 701 MPMSM-SR-IT!- ; 
0166 7 : MPMSM~SR—AGP!- ; 
0186 «= 70 MPMSM~SR_MXF I~ : 
01B6 104 MPMSM~SR-ACA!~ : 
0186 705 PMSM~SR-EIE,~ ; 
08 AS DpO000E002 BF 0186 706 MPMSL~SRTR4) ; 
DO 91D at MOVL #MPMSA_ERR ELR!- ; CLEAR ANY ARRAY ERRORS 
10 AS 90000000 BF 1BE 7 MPMSL-ERRTR4) ; 
: ° oh EO ics 710 BBS STREXESY.CRDENABL ,~ + BRANCH IF CRD ERROR LOGGING ENABLED 
08 00000000" GF 1¢7—711 G*EXESGL DEFFLAGS.10$_ : 
40000000 af D0 18 a MOVi snPR cERRRICRD.~ ; ELSE, INHIBIT CRD ERROR LOGGING 
00000400 af D0 105 ay 10$: MOVL GRPRER CSR AIA, ; CLEAR ANY ERROR 
1C AS) «DS )SsO01DD 716 CLRL = MPMSLTMR(R4) > CLEAR ANY DIAGNOSTIC SETTINGS 
50 64 00 O160 71 MOVL  $MPMSL~CSR(R4) RO : GET CSR REGISTER 
9 EF O1E £18 EXTZV #MPMS$U_CSR_PORT,- : GET PORT NUMBER 
50 0 16571 #MPMSS"CSR-PORT.RO.RO 
4 Ce OIE 720 MULL § #MPMSC“PORTS RO : COMPUTE INTERRUPT ENABLE BIT # 
0 10 CO O16B 721 ADDL  #MPMSVTIIE_CTL.RO ce 


ADPSUB780 - ADAPTER SUBROUTINES FOR VAX 11/480! 16-SEP-1984 00:41: AX/VMS Macro V04-0) Page 1 
y04= 000 AS TNT TEAL = INITIALIZE MULTI-PORT MEMOR g-§ Ep -1 1382 80:58:28 SYSLOA.SRCJADPSUB..4AR; 1 . 8) 
24 a4 OF 50 78 1EE u ; ASHL RO, #*XF MPMSL IIE(R4) —; ENABLE INTERPORT INTERRUPYS 

dO OTF MOVL &#MPM sh ER ; ENABLE ALL INTERRUPTS 
174 726 MPMSM Reitt : 
04 AG 03 1F4 725 MPMSL~CRTR4) ; 
OIF? 7 E + FROM ALL PORTS 
05 O17? 7 RSB + RETURN 
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FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS 
EITHER SENO AR 
THAT IS CONNECT 


; INPUTS: 


R4 = nparree watts BLOCK ADDRESS. 
R5 = IF LSS 0 = ADDRESS OF A FORK 

aL OCK IS NOT AVAIL 
IF GEQ 0 = PORT NUMBER OF PROCE 


A DRIVER OR AN EXEC FUNCTION TO 
OR JUST INTERRUPT ANOTHER PROCESSOR 
RT OF THE MULTIPORT MEMORY. 


TO USE If REQUEST 
R TO JUST INTERRUPT. 


“oro 
AMa 
o- x 


; OUTPUTS: 


FORK BLOCK ADDRESS, IT WILL 
K. IF THE REQUEST FAILS 
SAVED IN THE FORK BLOCK, THE 
IN — REQUEST BLOCK WAIT 


CALL CER WI 
FORK BLOCK BLOCK WILL BE INSER TH 
ALLER IS EXECUTED. 
s 
C 


s 


IF A REQUEST BLOCK IS og te 4 SuC 
RETURN TO THE CALLER VIA A CO-ROUTI 
FILL-IN THE REQUEST Bock. 


SSFULLY, CONTROL WILL 


CE 
NE CALL SO THE CALLER CAN 
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IF THIS ROUTINE IS CALLED 
FORK BLOCK ADDRESS, IT WI 
THE PROCESSOR ON THE SPEC 
pel enasee PROCESSOR TO 


RO = SUCCESS OR FAILURE OF OPERATION. THIS SHOULD BE CHECKED 
BY THE CALLER BOTH TIMES THIS ROUTINE RETURNS. 


R3,R4,R5 ARE PRESERVED. 
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MASREQUEST: : ; REQUEST HANDLER 
; FORK BLOCK ADDRESS Py 
GEQ, NO = JUST AN | 


SN NNN NIOO 


CIFIED? 
BGEQ 2 gh NTERRUP 
MOVL ADPELS 
MOVL 


wow 
BRO 
>>ro 
—~ 
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TER SUBROUTINES F SEP=1984 00:41:0 Page 18 
INTER=PROCESSOR REQUEST ae 9 8? 06 oe SYSLOA.SRCJADPSUB.MAR; 1 ~ we 
20F 791 REMQHI SHD$Q_PRQ(R1),R2 : 
50 0394 BF 36 9 Hf MOVZWL #SS$_BADQUEUEHDR,RO + SET FAILURE STATUS CODE 
6 794 10S: 
58 1D 795 NOBLOCKS ; IF V-SET, NO BLOCKS LEFT 
50 3404 9A 8 136 MOVZBL NDPSB LP ORT(R4) GET OUR P 
00 00A4 C1 50. =E? 09 BBCCI RO, SHOSuY PROVAIT (RI), RETURN N_BLOCK ; CLEAR WAITING FLAG 
199 | : RETURN ADDRESS OF REQUEST BLOCK TO CALLER 
1 RETURN _BLOCK: ; RETURN ADDRESS OF BLOCK 
DO g MOVL § #SS$_NORMAL,RO + SET SUCCESS 
16 o3 JSB a(SPy+ + CO-ROUTINE CALL CALLER BACK 
f 05 : INSERT BLOCK IN DESIRED PORT'S REQUEST QUEUE 
pp 7 09 : PUSHL R4 ; SAVE REGISTER 
C 9 808 MOVZWL PRO$W_TO PORT(R ),R1 ; GET DESIRED PORT NUMBER 
D0 D 809 MOVL  ADPSL"SH ; GET SHB A DRESS 
DO 0241 810 OvL  SHBSL “DITAPAGE (RO), R4 } GET _DATAPAGE ADDRESS 
0245 811 QRETRY SUCC INSERT REQUEST IN PORT'S WORK QUEUE 
0 45 I INSQTI (R2), 2apsa PROWRK(R4) ERTS 
3¢ 0 37 13 MOVZUL #ss8_ * BADQUEUEHDR, RO ; SET FAILURE STATUS CODE 
13 025 15 10$:  BEQL 0$ + IF EQL, FIRST ENTRY IN QUEUE 
DO 026 16 MOVL § #SS$_NORMAL,RO + SET 
DO 026 17 20$:  POPL R& + RESTORE REGISTER 
05 66 18 RSB ; 
BEDO 67 0 30$:  POPL  R4 ; RESTORE REGISTER 
6A é : REQUEST AN INTER=PORT INTERRUPT TG WAKE-UP PROCESSOR ON DESIRED 
6A 4: ; 
6A 5 REQ_INTERRUPT: : REQUEST AN INTER-PORT INTERRUPT 
9A 026A 6 MOVZBL ADP$B PORT (RG) AR : GET OUR PO 
C4 E MULL  #MPMSC_PORT Or? : COMPUTE INTERRUPT REQUEST BIT # 
C0 1 8 ADDL RO ~ gor 
C 74 9 ADDL Hae IR cTL RO ae 
00 77 0 mOVL ADPSL_CS R4),R1 : GET ADAPTER CSR ADDRESS 
7A 1 ASHL “HPRSL. TiR(RI : SET PORT INTERRUPT REQUEST BIT 
b0 7F ; MOVL Rees _NORMAL7RO : SET SUCCESS 
0 - RSB PF} 
5 * NO BLOCKS ARE AVAILABLE. SAVE THE CALLER'S CONTEXT IN THE FORK 
¢ BLOCK, INSERT THE FORK BLOCK IN THE REQUEST BLOCK WAIT QUEUE, AND 
RETURN TO THE CALLER'S CALLER. 
8 NOBLOCKS: ; NO REQUEST BLOCKS AVAILABLE 
7D 40 mova =—s RB FKBSL FR3(R5) ; SAVE REGISTERS 
BEDO 41 POPL  FKBSL_F : SAVE RETURN ADDRESS 
0 a6 INSQUE (R5),GADP$L_PROQQBL(R4) ; INSERT FORK BLOCK IN WAIT QUEUE 
06 F BG MOVL  #SS$.NORMAL>RO : SET SUCCES 
2 B44 RSB + RETURN TO CALLER'S CALLER 
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«SBTTL REPORT RESOURCE AVAILABILITY TO INTERESTED PORTS 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS CALLED TO REPORT TO ANY PROCESSORS THAT A RESOURCE 
HAS BEEN MADE AVAILABLE. 


INPUTS: 


RO = RESOURCE NUMBER OF RESOURCE MADE AVAILABLE. 
Ri = SHARED MEMORY CONTROL BLOCK (SHB) ADDRESS. 


OUTPUTS: 


ANY PROCESSORS WAITING FOR THE SPECIFIED RESOURCE ARE INTERRUPTED 
TO NOTIFY THEM THE RESOURCE IS AVAILABLE. 


RO,R1,R2,R3 ARE NOT PRESERVED. 


MASRAVAIL:: 


MOVL SHBS$L_DATAPAGE (R1) Rg ; GET ADDRESS OF DATAPAGE 


TSTW SHDSW_ RESWAIT(R2) CRO ; ANYONE WAITING FOR THE RESOURCE? 
BEQL 0$ : IF EQL, NO 
PUSHL SHBSL_ADP(R1) ; SAVE ADRESS OF ADAPTER CONTROL BLOCK 
CLRL. RB : INIT PORT NUMBER 
10$:  MOVAW = SHDSW_RESWAIT(R2)CROJ,R1 ; GET ADDRESS OF RESOURCE Walt {Mask 
BBC R3, (RT) .20$ NO ONE WAITIN 
MOVAW SHO$W_RESAVAIL(R2)CROJ, P GET ADDRESS OF AVATCABLE PRASK 
BBSSI RS. (RT) 198 ET PORT'S RESOURCE AVAIL BIT 
15$ BBSSI R3,SHD$W_RESSUM(R2),20$ : SET PORT’ ‘s RESOURCE AVAIL SUMMARY BIT 
208 AOBLSS #MPMSC_PORTS,R3, 108". ; INCREMENT PORT NUMBER A 
POPL R3 : GET ADDRESS OF ADAPTER CONTROL BLOCK 
MOVZWL SHD$W_RESWAIT(R2)CROJ,R1_; GET RESOURCE WAIT MASK 
SBW =» «-INTERRUPT_PORTS ; INTERRUPT WAITING PORTS 


30$: RSB ; 
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NTER=P 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS ENTERED V.A A JSB INSTRUCTION WHEN AN INTERRUPT 
OCCURS ON A MULTI-PORT MEMORY. THE STATE OF THE STACK ON ENTRY IS: 


ages Ay Re pel gy ias "JSB @#MASINT'’ IN ADPSL_INTD. 
PT PC. 


RRUPT 
ERRUPT PSL. 
ISPATCHING OCCURS AS FOLLOWS: 


THE FIRST REQUEST BLOCK iy THIS PORT'S glee ieee aes 
QUEVE IS DEQUEUED. rie REQUEST BLOCK IS THEN US S_A_ FORK 
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MASINT: : MA780 INTERRUPT DISPATCHER 

MOVL (SP) ; GET ADDRESS OF BYTE IN ADP 

MOVAB “<A rht = .R3 : COMPUTE ADDRESS OF 

: GET T CSR ADDR ESS 

: COMPUTE INTERRUPT REQUEST BIT # 
CLEAR ANY INTERRUPT REQUESTS 


: ERRUP 
10$:  MOVL IMT SERLT cecney ae ; GET DDRESS OF DATAPAGE 
: RO = PORT NUMBER 
R3 = ADP ADDRESS 
Ra : BATAPAG ADDRESS 
BBSSI Roe witty "POLL (R4) . peaueué _BLOCK ; INDICATE THIS PROCESSOR ACTIVE 


: DEQUEUE THE NEXT REQUEST BLOCK IN OUR WORK QUEUE AND REQUEUVE TO THE 
; APPROPRIATE FORK QUEUE. 


bEQUEUE BLOCK: 
“MOV (SP) ,R3 

QRETRY suceéss= 10$- 

REMQHI SHD$Q_PROWRK(R4)(R2],R5 
BUG_CHECK BADGHDR 

BVS” LOCK AVAIL 

PUSHAB DEQ QUEOE BLOCK 

PUSHAB W*REG est DISP T BRL Ber 

JMP G*EXESFORR NSERT BLOCK IN FORK QUEUE 


; IF THERE ARE ANY FORK PROCESSES ON THIS PROCESSOR WAITING FOR INTER-PROCESSOR 


8 BB 
00 00A6 C4) «55 E6 


aves N xT REQUEST BLOCK 
QUEUE Tie NEXT REQUEST BLOCK 
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53 6€ 7D E 
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= FAILED = BAD QUEUE HEADER 
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v04=000 INTER=PORT INTERRUPT DISPATCHER “SEP-1984 04:06: SYSLOA. SRCJADPSUB.MAR; 1 (6) 
48 ; REQUEST BLOCKS, AND IF ANY BLOCKS ARE NOW AVAILABLE, GIVE THEM TO THE 
49 : PROCESSES AND RESTART THEM. 
BLOCK_AVAIL: ; CHECK IF ANY BLOCKS AVAILABLE 
50 00A4 cs 52 5 : BBC R2 SHDSW_PROWAIT(R4) , RESOURCE AVAIL_; IF CLR, NO PROCESSES WAITING 
3 6€ ?D 10$:  MOoVa  (SP),R ; RESTORE R3-R 
B 954 QRETRY SUCCES§=208- ; ATTEMPT TO ALLOCATE A FREE BLOCK 
B 399 REMQHI SHD$Q_PRO(R4),RS5 ; 
é BUG_CHECK BADGHDR + REMQHI FAILED = BAD QUEUE HEADER 
Hi 1D 0346 957 208: _—BVS RESOURCE AVAIL : IF V-SET, NO BLOCK AVAILABLE 
5114 OF 034 938 REMQUE gADP L_PRQQFL(R3),R1 : GET NEXT WAITING FORK BLOCK 
if 4 95 BNEQ $ t IF NEQ, NOT LAST ENTRY 
00 O0A4 C4 F 4 60 BBCCI R2,SHD$W_PRQWAIT(R4),30$'; ELSE LAST, CLEAR WAITING FLAG 
é D O34E 961 30$:  BVS 50$ :' IF SET, NO PROCESSES LEFT 
53 51 «os 035 96¢ MOVL R1,R3 ; SET ADDRESS OF FORK BLOCK 
0B AS OB AS 90 0353 «96 MOVE FKBSB_FIPL(R3),FKBSB_FIPL(R5) ; SET FORK IPL 
CD AF OOF 58 (964 PUSHAB Br 108 ; SET RETURN PC 
__ 64'AF 9F 0358 965 PUSHAB 8*40$ + SET FORK PC 
00000000'GF 17 3 966 fe MP G*EXESFORK : INSERT BLOCK IN FORK QUEUE 
52 55 pO 0364 968 MOVL R5.R : SET ADDRESS OF REQUEST BLOCK 
55.53 pO 67 369 MOVL R3,R : SET ADDRESS OF DRIVER FORK BLOCK 
53°10 AS 7D 036A 970 MOVG FKBSL_FR3(R5),R3 : RESTORE REGISTERS 
OC AS pp gf 971 PUSHL FKBSL~FPC(RS) + SET RETURN ADDRESS OF HANDLER CALLER 
FEBE 31 1 976 BRW RETURN_BLOCK : RETURN TO HANDLER 
05 0 2 303 ee RSB ; 
0076 30 0373 973 BSBW DEALLOC_BLOCK : DEALLOCATE UNEEDED BLOCK 
bs 355 : IF THERE IS A RESOURCE NOW AVAILABLE THAT PROCESS(S) ON THIS PROCESSOR 
037 978 : ARE WAITING FOR, CREATE A FORK PROCESS TO REPORT THE AVAILABILITY TO 
, 979 : THE SCHEDULER. 
6 7 3B RESOURCE_AVAIL: ; 
42 00E8 C4 «52~~=«C«#€E:* 0 7 98¢ BC R2,SHD$W_RESSUM(R4) ,50$ ; IF CLR, NONE TO REPORT 
3C OOAG C4 «2552)«CE6 OO37E =O s«O98 BBSSI R2,SHD$WTPRQWAIT(R4S,50$ ; ASSUME NO BLOCKS AVAILABLE 
0384 984 : AND IF THERE ALREADY AREN'T, EXIT 
4 985 QRETRY SUCCESS=20$- : ATTEMPT TO ALLOCATE A BLOCK 
84 986 REMQHI SHD$Q_PRQ(R4),R5 ; 
95 987 BUG_CHECK BADOHDR + REMQHI FAILED = BAD QUEUE HEADER 
25 1 99 988 20$: .BVS 50$ : IF V-SeT, NO BLOCK AVAILABLE 
0 OOAG C4 3 E 989 BBCCI R2,SHD$W_PRQWAIT(R4),30$'; CLEAR WAIT FLAG 
0 0068 (4 «5 F? Al 990 30$:  BBCCI R2.SHDSWRESSUM(R4) ,40$ ; CLEAR RESOURCE REPORT SUMMAR’/ 
AS 6 A7 931 40$: MOVB #IPL$ QUEUEAST,FKB$B FIPL(RS) ; SET FORK IPL 
C AS B AB 3 MOVW  #PROSC_EXEC,PROSW DISPATCH(R5S) ; SET EXEC DISPATCHER ID 
20 a5—s01 8 AF 99 OVW #PROSC"RESAVL ,PROSW_REQTYPE(RS) ; SET RESOURCE AVAILABLE TYPE 
CO'AF 6 OF 3 994 PUSHAB B*50$ : SET RETURN PC 
3C6'CR «6 OOF 6 995 PUSHAB weREQUEST DISP : SET FORK PC 
00000000'GF 17 A 3 JMP G*EXESFORR : CREATE FORK PROCESS 
5E 08 CO O03CO 997 50$: ADDL 4#8,SP + REMOVE SAVED R3-R4 
C 938 INT_EXIT: : EXIT INTERRUPT 
3F BA ¢ 9 POPR #*M<RO,R1,R2,R3,R4,R5> : RESTORE REGISTERS 
2 03¢5 1000 REI ; 
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; FUNCTIONAL DESCRIPTION: 


THIS ROUTINE CAL LEP BY TH ve FORK an tatk DISPATCHER WHEN 
VE adele di FORK BLOCK THAT IS AN INTER=PROCESSOR REQUEST 


INPUTS: 
Ry = SCRATC 
= pyr CONTROL BLOCK ttt 
SHARED MEMORY DATAPAGE ADDRESS. 
RS = INTER@PROCESSOR REQUEST BLOCK ADDRESS. 


DISPATCHING OCCURS AS FOLLOWS: 


THE REQUEST DISPATCHER ID CODE IS EXAMINED AND IF IT IS 
AN EXECUTIVE REQUEST (PROSC EXEC) THEN THE EXEC REQUEST HANDLER 
1S CALLED. IF IT IS NOT THE. EXECUTIVE REQUEST ID, THE ID 
CODE IS USED AS AN INDEX INTO THE DRIVER DISPATCHER VECTOR 
TABLE TO CALL THE DRIVER INTERUPROCESSOR REQUEST DISPATCHER. 

IS 


WHEN THE CALLED A as RETURNS, THE REQUEST BLOCK 
Peat LLOCATED TO THE SHARED MEMORY REQUEST QUEUE AND A RETURN 
TO THE FORK PROCESS DISPATCHER IS EXECUTED. 
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; PROCESSOR REQUEST DISPATCHER 
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38 «BB HR  #*M<R3,R4,R5> : SAVE REGISTERS 
ASSUME Prose “Exee EQ 0 
51 1C AS 3¢ MOVZWL PROSWTDISPATCH(RS).R1 ; GET DISPATCHER ID 
12 BNEQ 108 : IF NEQ, NOT EXECUTIVE REQUEST 
: CALL APPROPRIATE EXECUTIVE INTER-PROCESSOR REQUEST HANDLER 
EC'AF 9F PUSHAB B*15$ : SET RETURN ADDRESS 
4 CASE —- PROSW_REQTYPE(RS),<- CALL REQUEST HANDLER 
4 ETEF; : UPDATE EVENT FLAGS 
4 RESAVL- : REPORT RESOURCE AVAILABLE 
44 5$: BUG_ CHECK YNKNPRa + UNKNOWN REQUEST ID 
oc 11 45 BRB 15 : 
4 i : CALL CLASS DRIVER INTER-PROCESSOR REQUEST DISPATCHER 
4 ios: 
50 10 a3 D 5 MOVL ADPst VECTOR (RS) .RO : GET ADDRESS OF VECTOR TABLE 
50 6041 b 2 MOVL  (RO)ER t GET ADDRESS OF DISPATCHER 
02 BEQL : IF EQL SED VECTOR 
5 > (CAN OCCUR AFTER CRASH IF REQUESTS ARE LEF 
60 16 ; che JSB (RO) : CALL DRIVER DISPATCHER 
38 «OBA “—- POPR) ss #*M<R3,R4,R5> ; RESTORE REGISTERS 
; : DEALLOCATE THE REQUEST BLOCK 
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CESS=108- 
SHD$Q_PRQ(R4) 
QHDR 

HOSW_PRQWAIT(R4),R1 

INTERRUPT _PORTS 
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SYSLOA.SRCJADPSUB.MAR; 1 
DEALLOCATE THE REQUEST BLOCK 
DEALLOCATE REQUEST BLOCK 
INSQT] FAILED = BAD QUEUE HEADER 
AN oa” yas WAITING FOR A BLOCK? 
; NOTIFY WAITING PORTS 


ed 
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y04 2000 INTERRUPT_PORTS = ROUTINE TO INTERRUPT S$ g-8 P= 1382 Bo bares SYSLOA. SRCJADPSUB.MAR; 1 - 
4 p ] ~SBTTL INTERRUPT_PORTS = ROUTINE TO INTERRUPT SELECTED PORTS 
4 p f : FUNCTIONAL DESCRIPTION: 
" p 4 : THIS ROUTINE SETS THE INTERRUPT REQUEST BITS FOR THE SELECTED PORTS. 
40D 1 ud: + INPUTS: 
40D 1077; 
40D 1 28 ; R1 = MASK OF PORTS TO BE INTERRUPTED. 
400 1979 : R3 = ADAPTER CONTROL BLOCK ADDRESS 
49D 1 81 INTERRUPT_PORTS: ; 
50 34 A3 9A 0400 1 é MOVZBL ADPS$B_PORT(R3) RO : GET OUR PORT NUMBER 
50 04 C& 0411 108 MULL #MPM$SC_PORTS,RO : COMPUTE INTERRUPT REQUEST BIT # 
50 10 £0 414 1084 ADDL  #MPMSV-IIR_CTL,RO ae 
50 51 30 417 1085 ASHL RI, aed 
51 63 dO 0418 1086 MOVL  ADPS$L’CSR(R3),R1 : GET ADAPTER CSR ADDRESS 
20 A150 BO O4iE 1087 MOVL RO, MPASL_IIR(R1) : SET PORTS’ INTERRUPT REQUEST BIT(S) 
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| 


4 ie .SBTTL UPDATE LOCAL COPY OF EVENT FLAG CLUSTER 
423 1092 : 
4 $8 : FUNCTIONAL DESCRIPTION: 
423 1095 : THIS ROUTINE HANDLES THE INTER-PROCESSOR REQUEST TO COPY THE MASTER 
423 1 3 : COMMON EVENT FLAGS INTO THE SLAVE COMMON EVENT BLOCK. SOME PROS 
42% 1097 : MAY BE DELIVERED AFTER THE SLAVE COMMON EVENT BLOCK HAS BEEN 
423 1 38 : DELETED. THIS HAPPENS FREQUENTLY AFTER A PROCESSOR CRASHES 
4 1099 ; AND REBOOTS. THE LOGIC HANDLES THIS BY IGNORING THE PRQ. 
rs i ; 3 INPUTS: 
423 1103 : R4 = SHARED MEMORY DATA PAGE ADDRESS 
4 i 4 : RS = INTER=PROCESSOR REQUEST BLOCK ADDRESS 
4 1106 : OUTPUTS: 
Oe 1198 3 RO = SS$_NORMAL = SUCCESSFUL RETURN 
& ‘ee 
0423 1110 SETEF: 
0423 1111 DSBINT #IPL$_SYNCH ; RAISE TO SYNCH FOR REFCNT CHANGE 
50 24a5 3C 0429 1118 MOVZWL PROSL“PARAM(RS) ,R : GET INDEX TO MASTER C 
53 54 «(0B AG cI 042D 111 L3 SHDSL-CEFPTR(R4S .R4.R3 : GET ADR OF 1ST MASTER CEB 
52 08 AS) = 3C COG 32 1114 MOVZWL CEBSW~SIZE(R3) Re > GET THE SIZE OF ONE MASTER CEB 
52 20 C4 0436 1115 Lig RO. Re ; Ger BYTE OFFSET TO THIS MASTER 
5 : c0 043 1116 ADDL2 R2.R : R3=ADR OF MASTER CE 
51 184A C 04 ¢ 111 MOVZWL PRQSW_TO_PORT(RS) ,R1 : RECEIVER P 
51 38 A341 09 440 1118 MOVL  CEBSL-VASLAVE1(R35CR1J,R1 ; RI=ADR OF SLAVE CEB, OR 0 
25 13 0445 1119 BEQL 40S ; BR IF SLAVE NO LONGER EXISTS 
10 Al 10 A3 D0 0447 1120 MOVL  $CEBSL_EFC(R3),CEBSL_EFC(R1) ; COPY FLAGS FROM MASTER 
0078 8F 6B daa 1121 PUSHR #*M<R3,R4,R5,R6> : SAVE REGISTERS 
56 14 Al 9E 0450 11 : MOVAB CEBSL_WOFL(R1),R6 : GET HEAD OF WAIT QUEUE FOR CEFC 
52. 01 9A 0454 11 MOVZBL #PRIS~IOCOM,R : SET PRIORITY INCREMENT 
54 66) SOO 0457 «1124 MOVL — (R6) : GET FIRST PCB IN WAIT QUEUE 
56 54)—SCO=iTsC«OK4SA «1125 208: = CMPL. —saRG RO : IS THIS THE END OF THE QUEUE? 
12 13 0450 11 : BEQL 30% ; BR IF END OF QUEUE 
55 66 DO O45F 11 MOVL  (R4),RS : REMEMBER NEXT PCB IN QUEUE 
FC A6 DE 0462 1128 MOVAL  <CEB$L_EFC-CEBSL_WOFL>(R6),RO ; POINT TO EVENT FLAG MASK 
00000000'GF 16 0466 1129 JSB G*EXESCHKWAIT2 ; CHECK IF THE PROCESS RUN 
54 55 DO 046C 1130 MOVL  RS.R4 : GET NEXT PCB IN WAIT QUEUE 
E9 11 O46F 1131 BRB 208 : CONTINUE LOOPING THROUGH ALL OF QUEUE 
0471 11 : 30S: : NO MORE PCB'S IN WAIT QUEUE 
0078 8F BA 0471 11 POPR #*M<R3,R4,R5,R6> > RESTORE REGISTERS 
423 1134 40$: : NO SLAVE CEB EXISTED 
50 01 9A 0475 1135 MOVZBL #SS$_NORMAL,RO : RETURN SUCCESS STATUS 
0478 1136 ENBINT : LOWER FROM SYNCH 
05 0478 1137 RSB > RETURN 


SO NO WAITERS 
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yi REPORT RESOURCE AVAILABILITY TO LOCAL SY $78 1984 80: :06: 08 YOYSLOA. SRE JADPSUB OMAR: 1 (6) V4 
i 1135 .SBTTL REPORT RESOURCE AVAILABILITY TO LOCAL SYSTEM 
47C 1141: 
47e 1148 : FUNCTIONAL DESCRIPTION: 
47C 1144: THIS ROUTINE HANDLES THE INTERPROCESSOR REQUEST TO REPORT 
are 1145 : THAT A RESOURCE IS AVAILABLE TO THE LOCAL SYSTEM. 
rc 114? : INPUTS: 
47¢ 1108 : RS = ADAPTER CONTROL BLOCK ADDRESS. 
47¢ 11 : : = SHARED MEMORY DATAPAGE ADDRESS. 
ane i : Rg = INTER-PROCESSOR REQUEST BLOCK ADDRESS. 
ze 1188 § : OUTPUTS: 
é7¢ 1155 : RESOURCE AVAILABILITY IS REPORTED, THEREBY UNBLOCKING ANY PROCESSES 
47¢ 1136 ; ARE WAITING FOR THE RESOURCE. 
rit: 1184 RESAVL: : 
047C 1159 " DSBINT #IPL$_SYN t SYNCHRONIZE DATABASE ACCESS 
2M Be eRe Ree me 1 SO ce meoen 
50 01 00 Oc88 1168 MOVL #1,RO : INIT RESOURCE NUMBER 
: W_RESAVAIL(R4)CROJ,R1 ; GET ADDRESS OF AVAILABLE MASK 
” 19-64 ae 35 se 1188 ~~ ta 1 TR 5) M08 if CLR, RESOURCE NOT AVAILABLE 
51 00A8 cath aE 499 1166 MOVAW SHDSG RESUALT(R4) CROJ, JR "+ GET, ADDRESS OF WALT MASK 
0000000" et ‘ reg 1168 JSB ere tisRayAT IL : REPORT RESOURCE AVAILABLE 
E250 OF F2 O4AS 1169 20$:  AOBLSS #RSNS MAX,RO,10$ : INCREMENT RESOURCE NUMBER AND LOOP 
0c BA O4A9 1170 POPR #*M<RZ,R3> ; RESTORE REGISTERS 
04AB 1171 ENBINT > RESTORE IPL 
05 O04AE 1128 SB 
O4AF 117 
O4AF 1175 END 
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Symbol table 
ADPS$B_PORT 
ADPSC_MPMADPLEN 
ADPSL_AVECTOR 
ADPSL_CSR 
PSL_INTD 


XESALONONPAGED 
EXESCHKWAIT2 


EXESFORK 

EXESGL_DEFFLAGS 

EXESGL-LOCKRTRY 
$GL~SCB 
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ADPSUB780 
Symbol table 


P 
PROSW_DISPATCH 
PROSW_REQTYPE 
PRQSW-TO_POR 
REQUEST BISP 
REQ_INTERRUPT 
RESAV 


RESOURCE _AVAIL 
RETURN_BCOCK 


x 
SCHSRAVAIL 
SETEF 
SHBS$L_ADP 
SHBSL_DATAPAGE 
SHDSL_CEFPTR 
SH 
SHD$W~_ POLL 
SHD$W_PRQWAIT 
SHDSW_RESAVAIL 

HDSW_RESSUM 
SHDSW_RESWAIT 
SS$_BADQUEUEHDR 

$”" NORMAL 
UBASINITIAL 
UBASINT 
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UCBSL_FP 
UCBSL_FR 
UCB$V_ INT 
ucoew_STS 
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Psect synopsis SEP-19 6:4 SYSLOA.SRCJADPSUB.MAR; 1 


teecnmone mececoreen$ 


! Psect synopsis ! 


Pome wn mr mean nr nae $ 


PSECT name Allocation PSECT No. Attributes 
,5 eS .s 90000000 ¢ ° 0¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD ag NOVEC BYTE 
SABSS 00000 e 1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
SYSLOA QOOOO4AF ( 1199. 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD URT NOVEC LONG 
¢eeeoceecoecoan wen aew ene eeaa} 
H Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 30. 00:00:00.03 00:00:01.95 
pounens processing 106 00:00:00.44 B08: 4.39 
554 00: 87 03°82 0:00: §-2) 
Symbol table sort 0 Ba: +06. 5 88879 98 
s2 196 0:00:03.19 0:00:12.1 
aa table output 20 00: 83-13 0:00:01.04 
Psect synopsis output Ba: 0:00.01 0:€0:00.01 
Cross-reference output 0: 3:98" 0 8088-28 
Assembler run totals 91 00:00:20.90 0:01:23.49 


The working set Limit was 1800 pages. 
138898 bytes (272 pages) of virtusl memory were used to buffer the intermediate ggee- 
There were 120 pages of symbol table space allocated to hold 2165 non-local and 52 local symbols. 
1179 source Lines were read in Pass 1, produc ing object records in Pass 2. 
44 pages of virtual memory were used to define 43 macros. 


Macro Library name Macros defined 
$2558DUA28: SYS.OBJ2LI8. B;1 30 
$255$DUA28 SYS IBISTARL Sale:2 

Tevaee (all Libraries) 3 


2268 GETS were required to define 38 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:ADPSUB780/0BJ=0BJ$:ADPSUB780 MSRC$: CPUSW780/UPDATE=(ENHS: CPUSW780) +MSRC$: ADPSUB/UPDATE=(ENH$: ADPSUB) +EXECMLS$/LIB 
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